MacFormat 1996 June/macformat-038.iso/Demos/Interactive Wave/_DATAS/SHARED.Dxr/00976_Macro Gestion du Clavier.ls

Text File | 1995-08-06 | 3.2 KB | 135 lines

on ActiveTouchesPlus Parametres
  global listTouchesPlus
  set listTouchesPlus to Parametres
end

on DesactiveTouchesPlus
  global listTouchesPlus
  set listTouchesPlus to list()
end

on GestionTouchesPlus AccuKey
  global listTouchesPlus
  set AccuQ to getOne(listTouchesPlus, "ALPHABET")
  if AccuQ <> 0 then
    set NomMacro to getAt(listTouchesPlus, AccuQ + 1) & "(" & string(AccuKey) & ")"
    CallM(NomMacro)
  end if
  set AccuP to getOne(listTouchesPlus, AccuKey)
  if AccuP <> 0 then
    CallM(getAt(listTouchesPlus, AccuP + 1))
  end if
  return AccuP
end

on ActiveTouches
  set the keyDownScript to "GestionPresseTouche"
end

on DesactiveTouches
  set the keyDownScript to EMPTY
  DesactiveTouchesPlus()
  DesactiveSkip()
end

on GestionPresseTouche
  set AccuKey to the keyCode
  if GestionTouchesPlus(AccuKey) <> 0 then
    exit
  end if
  if SonParClavier(AccuKey) <> 0 then
    exit
  end if
  if AccuKey = 49 then
    return CallM("ExecuteSkip")
  end if
  set listKeyTouches to list(126, "SautDePuce", 123, "Retour", 124, "Suite", 51, "Fusee")
  set AccuP to getOne(listKeyTouches, AccuKey)
  GestionPommeQ()
end

on GestionPommeQ
  if the commandDown = 0 then
    exit
  end if
  if (the key = "W") or (the key = "w") then
    quit()
  end if
  if (the key = ".") or (the key = "q") or (the key = "Q") then
    Quitter()
  end if
end

on SonParClavier AccuKey
  global MemoVolume, SprFondBar, DcQuit, DcTransit, CastBarrette, CastEfface, SprBoutBar, ColCastBar
  set listTouchesSon to list(29, 18, 19, 20, 21, 23, 22, 26)
  set AccuS to getOne(listTouchesSon, AccuKey)
  if AccuS <> 0 then
    set AccuV to AccuS - 1
    if (the castNum of sprite SprFondBar = CastBarrette) and (DcQuit = 0) then
      if (AccuV <> MemoVolume) and (DcTransit = 0) then
        if AccuV < MemoVolume then
          set ColCastBar to 4
          set AccuG to the number of cast "SonMoins"
        else
          set ColCastBar to 5
          set AccuG to the number of cast "SonPlus"
        end if
        set the locH of sprite SprBoutBar to ColCastBar * 40
        set the castNum of sprite SprBoutBar to AccuG
        updateStage()
        RestoreBoutBar()
      end if
    end if
    set NomMacro to "SetVolume(" & string(AccuV) & ")"
    do(NomMacro)
  end if
  return AccuS
end

on ActiveSkip Parametre
  global MemoSkip
  set MemoSkip to Parametre
  set the mouseDownScript to "ExecuteSkip"
end

on ActiveSkipSpace Parametre
  global MemoSkip
  set MemoSkip to Parametre
end

on DesactiveSkip
  global MemoSkip
  set MemoSkip to "#"
  set the mouseDownScript to EMPTY
end

on ExecuteSkip
  global DcDemo, MemoSkip, SprFondBar
  if DcDemo then
    DesactiveSkip()
    return FinDemo()
  end if
  if MemoSkip = "#" then
    exit
  end if
  if rollOver(SprFondBar) and (the key <> numToChar(32)) then
    exit
  end if
  set AccuM to MemoSkip
  DesactiveSkip()
  set Nmacro to word 3 of AccuM
  if Nmacro <> EMPTY then
    CallM(Nmacro)
  end if
  set Nanim to word 1 of AccuM
  set Nframe to word 2 of AccuM
  if (Nanim <> "Nothing") and (Nframe <> "Nothing") then
    CallM("GoMovieRepere(" & QUOTE & ":" & Nanim & QUOTE & "," & QUOTE & Nframe & QUOTE & ")")
  end if
  set Nmacro to word 4 of AccuM
  if Nmacro <> EMPTY then
    CallM(Nmacro)
  end if
end